home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 3.2 / Ham Radio Version 3.2 (Chestnut CD-ROMs)(1993).ISO / exam / tec2 / tec.bas next >
BASIC Source File  |  1988-01-13  |  4KB  |  87 lines
  1. 10 GOSUB 550:DEFINT A-O:DIM A$(20)
  2. 20 PRINT:PRINT"TECHNICIAN QUIZ VERSION 0.2":GOSUB 290
  3. 30 PRINT:INPUT"ENTER OR CARRIAGE RETURN";A$
  4. 40 FOR J=1 TO 25
  5. 50 WHILE A$<"X"
  6. 60 K=K+1:READ A$:A$(K)=A$
  7. 70 WEND
  8. 80 K=K-1:RANDOMIZE TIMER:R=RND(0):I=R*K:IF I<1 THEN I=1 ELSE IF I>K THEN I=K
  9. 90 A$=A$(I):GOSUB 250
  10. 100 IF INSTR(R$,Q$)>0 THEN 150
  11. 110 LINE INPUT#1,R$
  12. 120 IF EOF(1) THEN Z=Z+1:GOSUB 280
  13. 130 IF Z>9 THEN CLOSE:PRINT"FILE ERRORS":END   
  14. 140 GOTO 100
  15. 150 FOR I=0 TO 9:PRINT:PRINT:NEXT I:A$=MID$(R$,4,1):R$=""
  16. 160 PRINT R$:LINE INPUT#1,R$:IF INSTR(R$,CHR$(126))<1 THEN 160
  17. 170 PRINT:INPUT"WHAT IS THE CORRECT ANSWER  A, B, C, OR D";Z$:IF Z$="" THEN 170
  18. 180 Z$=CHR$(ASC(Z$) AND 95)
  19. 190 IF Z$<"A" OR Z$>"D" THEN GOSUB 770:GOTO 170
  20. 200 PRINT:IF Z$=A$ THEN Y=Y+1:PRINT"CORRECT"
  21. 210 IF Z$<>A$ THEN PRINT"NO, THE CORRECT ANSWER WAS ";A$
  22. 220 FOR I=0 TO 999:NEXT I:K=0:NEXT J
  23. 230 PRINT:PRINT"YOUR SCORE IS "(Y*100)/25" PERCENT"
  24. 240 CLOSE:END
  25. 250 B$=MID$(A$,2,2):IF LEFT$(B$,1)="0" THEN B$=RIGHT$(B$,1)
  26. 260 C$=MID$(A$,4,2):IF LEFT$(C$,1)="0" THEN C$=RIGHT$(C$,1)
  27. 270 Q$="3"+LEFT$(A$,1)+"-"+B$+"."+C$:RETURN
  28. 280 PRINT"I AM HAVING TROUBLE FINDING FILE ";Q$;"PLEASE STAND-BY":CLOSE
  29. 290 OPEN "I",1,"TEC.DAT":RETURN
  30. 300 DATA A0101, A0102, A0201, A0202, A0203, A0204, A0205, A0206, A0207, A0208, Z
  31. 310 DATA A0301, A0306, A0308, A0402, A0404, A0405, A0406, A0501, A0502, A0503, A0504, Z
  32. 320 DATA A0603, A0604, A0605, A0701, A0702, A0703, A0704, A0801, A0802, A0803, A0804, A0805, A1009, A1010, Z
  33. 330 DATA A1101, A1102, A1201, A1202, A1203, A1204, A1303, A1304, A1305, A1306, A1307, A1308, A1309, A1310, Z
  34. 340 DATA A1401, A1402, A1403, A1405, A1407, A1502, A1701, A1702, A1703, Z
  35. 350 DATA B0101, B0102, B0103, B0106, B0107, B0108, B0109, B0110, B0111, B0112, B0113, Z
  36. 360 DATA B0114, B0115, B0116, B0205, B0207, B0208, B0209, B0301, B0302, B0303, B0304, B0305, B0306, B0307, B0309, B0310, B0311, Z
  37. 370 DATA B0313, B0604, B0605, B0606, B0607, B0608, B0609, B0610, B0901, B0902, Z
  38. 380 DATA C0101, C0102, C0103, C0104, C0105, C0108, Z
  39. 390 DATA C0111, C0112, C0114, C0201, C0202, C0205, C0206, C0301, C0302, C0305, C0401, C0402, C0403, C0404, C0601, C0603, Z
  40. 400 DATA C0801, C0802, C0901, C0902, C0903, C0904, C0905, C0906, Z
  41. 410 DATA D0101, D0102, D0103, D0104, D0201, D0202, D0203, Z
  42. 420 DATA D0205, D0502, D0503, D0504, D0701, D0702, D0703, D0704, D0801, D0802, Z
  43. 430 DATA D0803, D0804, D0805, D1101, D1102, D1103, D1104, D1105, D1201, D1401, D1402, Z
  44. 440 DATA D1403, D1404, D1405, D1408, D1601, D1602, D1603, D1604, D1605, D1701, D1801, D1802, D1803, Z
  45. 450 DATA E0201, E0202, E0203, E0204, E0401, E0402, E0403, E0404, E0405, E0501, E0502, E0503, E0504, E0505, E0701, E0703, Z
  46. 460 DATA E0801, E0802, E0803, E0804, E0901, E0902, E0903, E0904, E1101, E1102, E1103, E1104, E1105, E1202, E1304, E1408, E1409, E1410, E1411, Z
  47. 470 DATA F0101, F0102, F0103, F0104, F0106, Z
  48. 480 DATA F0201, F0202, F0203, F0204, F0205, F0208, F0301, F0302, F0303, F0304, F0305, F0306, F0503, Z
  49. 490 DATA G0201, G0202, G0203, G0204, G0205, G0206, G0207, G0209, G0301, G0302, G0303, Z
  50. 500 DATA H0101, H0102, H0103, H0104, H0105, H0106, H0107, H0108, H0109, H0110, H0202, H0601, H0602, H0701, Z
  51. 510 DATA H0902, H1201, H1401, H1402, H1601, H1602, H1603, Z
  52. 520 DATA I0101, I0102, I0104, I0105, I0106, I0108, I0202, I0203, I0204, I0205, I0206, I0401, I0402, I0403, Z
  53. 530 DATA I0404, I0405, I0406, I0407, I0408, I0607, I0801, I0802, I0803, I0901, I0902, Z
  54. 540 DATA I1001, I1002, I1003, I1004, I1103, I1105, I1106, I1109, I1111, I1203, I1204, Z
  55. 550 CLS
  56. 560 PRINT,:PRINT"TEC.BAS  Technician random exam"
  57. 570 PRINT
  58. 580 PRINT,"by Charles E. Gelm  NC8Q
  59. 590 PRINT
  60. 600 PRINT"with the assistance of Gary Laxton  WD8ATN"
  61. 610 PRINT
  62. 640 PRINT"    and the Far Out Amateur Radio Club BBS"
  63. 650 PRINT
  64. 660 PRINT"This program is released as ShareWare and is for private use only."
  65. 670 PRINT"If this program is of benefit to you, please send $5 to:"
  66. 680 PRINT
  67. 690 PRINT"Far Out Amateur Radio Club
  68. 700 PRINT"Dayton, OHio"
  69. 710 PRINT"Post Office Box 9181
  70. 720 PRINT"Dayton, OHio
  71. 730 PRINT"45409"
  72. 740 PRINT
  73. 750 PRINT
  74. 760 RETURN
  75. 770 PRINT
  76. 780 PRINT"oops, you didn't enter Aa Bb Cc Dd"
  77. 790 PRINT
  78. 800 PRINT"You may 'X' eXit or 'Q' Quit or just <enter> to continue"
  79. 810 PRINT
  80. 820 INPUT"X Q <enter>";Q$
  81. 830 IF Q$="x" THEN 880
  82. 840 IF Q$="q" THEN 880
  83. 850 IF Q$="Q" THEN 880
  84. 860 IF Q$="X" THEN 880
  85. 870 RETURN
  86. 880 GOTO 240
  87.